www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\inc\checkadmin2.asp

    <%


'**************************************************************
' 新动软网站管理系统
' 官方网站: http://www.aspcpu.com
' 系统作者: 阮丁远(网名：天下程序)
' Copyright 新动软网站管理系统 版权所有
'**************************************************************


%>

<!--#include file=../../inc/config.asp-->


<!--#include file=sys.asp-->




<!--#include file=get.asp-->











<% 



		'缓存路径,用于多个本系统并存的情况，防止冲突
		CacheTempx = LCase(Trim(Request.ServerVariables("SCRIPT_NAME")))
		CacheTempx = Left(CacheTempx, InStrRev(CacheTempx, "/"))
		CacheTempx = Replace(CacheTempx, "\", "_")
		CacheTempx = Replace(CacheTempx, "/", "_")
		CacheTempx = "newdsoft" & CacheTempx




if session(nd_admin_cach_varb_name)="" and request.cookies(nd_admin_cach_varb_name)="" then 

response.redirect "../D_admin_login.asp"
response.end




end if




if session(nd_admin_cach_varb_name)="" then
if request.cookies(nd_admin_cach_varb_name)="" then
uuuaa=""
else
uuuaa=request.cookies(nd_admin_cach_varb_name)
end if
else
uuuaa=session(nd_admin_cach_varb_name)
end if
if session(nd_admin_cach_varb_name&"_pwd")="" then
if request.cookies(nd_admin_cach_varb_name&"_pwd")="" then
uuuaapwd=""
else
uuuaapwd=request.cookies(nd_admin_cach_varb_name&"_pwd")
end if
else
uuuaapwd=session(nd_admin_cach_varb_name&"_pwd")
end if



    If not IsObject(conn) Then
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dir_set&main_data_mdb)
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    End If

  Set rsttttsql = server.CreateObject("adodb.recordset")
    sql = "select * from ND_admin where aname='"&uuuaa&"' and passwd='"&uuuaapwd&"'"
    rsttttsql.open sql, Conn, 1, 1
if rsttttsql.eof or rsttttsql.bof then 
response.redirect "../D_admin_login.asp"
response.end
end if




if cstr(sys_url_get)<>cstr(sys_url_get_b) or sys_url_get="" then
response.redirect "../D_admin_s"&"e.asp"
response.end 
end if




letdd=1




'-------------------------------------------------------------
%>